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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL Feu etre CORPORATION, MAYNARD, MASSACHUSETTS. 


ALL RIGHTS RESERVED 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 

ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE gli NOTICE, THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
THER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
orepokat ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONS . 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
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v03-012 EAD0162 Elliott A. Drayton Pi * aa 
Correct ADDB3 in routine GETFULLNAME to use 

v03-011 EAD0160 Elliott A. Drayton 16-Apr-1984 
Added a test for the system block address not being there. 

v03-010 yoate fi jiott A. Drayton 11-Apr-1984 
Changed code to log full device names. NODE + DEVICE. 

v03-009 LMP0221 ark Pilant 30-Mar-1984 13:57 
Change UCBSL _ownic” to ORBSL NOUNER and UCB$W_VPROT to 
ORBSW_PROT. 

v03-008 KPLO100 Peter Lieberwirth 22-Mar-1984 


Use CONFREGL ipetese of CONFREG. Anticipate SBICONF 
conte ining a PFN i nstead of a VA if BI adapter 
nitialization didn’t originally recognize the adapter. 


v03-007 $S$A0007 Sta ay 
Fix broken branch to ers LLOCEMB. 


v03-006 LMP0185 Mark Pilant, 11-Feb-1984 9:37 
Fix some broken kee 


v03-005 ROW0241 Ralph 0. Weber 12-OCT-1983 


2-F eb-1984 


NAME AN @§ CO OD NONE WIN 0 OD NA UE WIN $ O OONO AE WN 0 OD NOAM EWN - OOOO wine 


AAT BBE EWI I ronononononononony 3 2 2 2 
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Correct ERLSLOG, D(T)MSCP to allocate space for the error log 
header in additTon to the space needed for the logged message 
: t. ante use symbolic size of error log entry header instead 


V03-004 RLRMSCP Rober appa gore 7=Jul-1983 
Add two entrygeiots. Ent .0e, MSCP and E Ln. TMSCP, 
to log invalid Disk MSCP and Tape MSCP messages. 


v03-003 KOM00S1 Kathleen D. Morse 11-Jul-1983 
- a e rERESRERD ge to use * loadable, cCpu-dependent 
v03-002 ats iss’ Bénn Schreiber 24-Sep-1982 


Correct broken branch offset due to UCB growing 
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-SEP-1984 41:34 (CSYS.SRCJERRORLOG.MAR;1 
5; 
§ ; MACRO LIBRARY CALLS 
§ SCDDBDEF ;DEFINE CDDB OFFSETS 
0 SCORPDEF ;DEFINE CORP OFFSETS 
1 SODBDEF sDEFINE DDB OFFSETS 
¢ SDOTDEF ;DEFINE DDT OFFSETS 
SDEVDEF ;DEFINE DEVICE CHARACTERISTIC BITS 
4 SEMBDEF <DV,SU,TS,UI,SP,LM,ET> ;ERROR LOG MESSAGE BUFFERS OFFSETS 
5 SERLDEF ;DEFINE ERROR ALLOCATION BUFFER OFFSETS 
§ $F CBDEF OEE ING FCB OFFSETS 
SIODEF ;DEFINE 1/0 FUNCTION VALUES 
8 SIRPDEF sDEFINE IRP OFFSETS 
0 SMCHKDEF sDEFINE MACHINE CHECK RECOVERY MASK BITS 
0 SMSCPDEF ;DEFINE MSCP OFFSETS 
2 SNDTDEF ;DEFINE NEXUS DEVICE TYPE CODES 
00 38 SORBDEF sDEFINE OBJECT'S RIGHTS BLOCK OFFSETS 
$3 % SPROEF ;DEFINE PROCESSOR REGISTER ERS 
0 94 SSBDEF ;DEFINE SYSTEM BLOCK OFFSET 
48 95 SUCBDEF ;DEFINE UCB OFFSETS 
00 38 SWCBDEF ;DEFINE WCB OFFSETS 
0000 (Oh wee 
0000 99 ;DEBUG=1 ;**e]F DEFINED, ENABLE UNEXPECTED 
0 $3 139 ;*** INTERRUPT IDENTIFIES VECTOR &# 
$33 
9000 1 g ; LOCAL MACROS 
00 104 ; 
ate 
444 199 ; MACRO TO DEFINE AN INTERRUPT SERVICE ROUTINE LABEL FOR UNEXPECTED INTERRUPTS 
000 199 «MACRO ISRDEF,VNUM 
00 110 «ALIGN LONG ; Make all vectors long word alligned 
00 111 ERLSVEC*VNUM:: ; INTERRUPT SERVICE LABEL 
00 ig mS DF ,.DEBUG 3**e1F DEBUGGING 
BS 11 BSBW ERLSUNEXP s***CALL INTERRUPT SERVICE 
0 114 BYTE <VNUM>/2 see TDENTIFY VECTOR OFFSET INTO SCB 
00 115 ~ENDC 
EN 
i ENDM ISRDEF 
118 : MACRO TO DEFINE THE INTERRUPT SERVICE ROUTINE LABELS FOR AN ADAPTER 
120 -MACRO ADPISR,SLOT 
1 VECTOR = SLOT * 4 + 256 
1 § ISRDEF \VECTOR 
! : VECTOR = +3 Na + <16 * 4> 
1 § ae NOF ,DEBUG :1F NOT DEBUGGING 
6588. ADP_HANDLER :CALL INTERRUPT SERVICE 
' § -ENDM ADPISR 
1 ? ; LOCAL SYMBOLS 


ER! 
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132 3 
He 
; MAXIMUM NUMBER OF MESSAGES BEFORE WAKE OF FORMAT PROCESS 
1 Py 
0000000A ! 8 MAXMSG=10 $ 
140 ; 
: 149 ; MAXIMUM TIME IN SECONDS BEFORE WAKE OF FORMAT PROCESS 
148 ° 
OOOOO0IE 6 Ve MAXTIM=30 3 
0 198 
0 147 ; LOCAL DATA 
$0 128 , 
00000000 139 ; -PSECT $$$260,QUAD,WRT 
944 13 : WARNING!!! The next two bytes must be adjacent and word aligned 
0000 154 ° .ALIGN WORD 
00 0000 155 BUF1: .BYTE 0 COUNT OF BUSY MESSAGES IN BUFFER 
00 0001 128 «BYTE 0 [COUNT OF COMPLETED MESSAGES IN BUFFER 
00 Oe 15 -BYTE QO ;BUFFER INDICATOR 
00 000 158 BYTE 0 BUFFER CONTROL FL AGS 
0000000 0004 159 LONG 108 ADD RESS OF NEXT AVAILABLE SPACE IN BUFFER 
BeOno50 * 0008 160 ~ LONG 0$ ADDRESS OF END OF BUFFER + 1 
00000200 8305 161 10$: -BLKB 12-ERL$C_LENGTH PACTUAL BUFFER AREA 
8 3 166 208: REF LABEL 
0 160 : WARNING!!! The next two bytes must be adjacent and word aligned 
6 166 : .ALIGN WORD 
00 0 167 BUF2: .BYTE 0 ;COUNT OF BUSY MESSAGES IN BUFFER 
00 9} 168 BYTE 0 COUNT OF COMPLETED MESSAGES IN BUFFER 
01 ¢ 199 BYTE 1 ;BUFFER INDICATOR 
0 8 170 BYTE 0 ;BUFFER CONTROL FLAGS 
0000020C' 4 171 -LONG 10% sADDRESS OF NEXT AVAILABLE SPACE IN BUFFER 
00000400' 0208 \7¢ . LONG 208 sADDRESS OF END OF BUFFER 
00000400 02 173 108: -BLKB 12-ERLS$C_LENGTH zACTUAL BUFFER AREAT 
4 174 20$: ;REF LABEL 
4 175 
4 178 3 
49 iy 3 GLOBAL DATA 
4 173 $ ERROR LOG DATA BASE 
4 181 ° 
4 1 ¢ ERLSAL_BUF ADDR: : yALLOCATION BUFFER ADDRESS ARRAY 
90000000" 4 1 .LONG  BUF1 Z ADDRESS OF BUFFER 1 DESCRIPTOR 
0000200" 0404 184 LONG BUF2 ADDRESS OF BUFFER 2 DESCRIPTOR 
uae ‘ 5 ERLSGB_BUF IND: : ; CURRENT ALLOCATION BUFFER INDICATOR 
4 187 ERL$GB_BUFFLAG: : TBUFFER STATUS FLAGS 
00 0409 £188 BYTE O 3 


Mm 4 
cot J-ommced eter oes one CREEL SUSRHHE UNO CAamNSE Ran 


00 r . } ERLS$GB BURT EE: 0 ;FORMAT PROCESS BUFFER INDICATOR 
408 191 ERLSGB_BUFTIM:: ;FORMAT PROCESS WAKEUP TIMER 
1E 04 1 -BYTE MAXTIM ; 
40C 193 ERLSGL_ERLPID:: PROCESS ID OF ERROR LOG PROCESS 
00000000 040 194 .LO 0 : 
41 195 ERLSGL -SEQUENCE: 5 UNIVERSAL ERROR SEQUENCE NUMBER 
00000000 041 196 0 H 


PORT RO 


and 
mer 
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~SBTTL UNEXPECTED INTERRUPT SERVICE 


xa 


ERLSVEC'VNUM = INTERRUPT SERVICE FOR SCB VECTOR VNUM. 
ERLSUNEXP = GENERAL UNEXPECTED INTERRUPT SERVICE 


THESE INTERRUPT SERVICE ROUTINES ARE EXECUTED FOR UNUSED SCB VECTORS. 
IF DEBUG IS DEFINED, EACH INTERRUPT SERVICE CALLS ERLSUNEXP WITH 


THE <VECTOR OFFSET>/2 INTO THE SCB AS A 1 BYTE ARGUMENT. 
IF DEBUG IS NOT DEFINED, ALL CPU INTERRUPT SERVICE ROUTINES COLLAPSE TO 
GLOBAL LABELS EQUAL TO ERLSUNEXP AND ALL ADAPTER INTERRUPT SERVICE 
ROUTINES CALL A ROUTINE THAT SAVES THE ADAPTER TYPE, TRIES TO DISABLE 
FURTHER INTERRUPTS, AND LOGS THE INTERRUPT. 
THERE ARE ENOUGH INTERRUPT SERVICE ROUTINES FOR THE ARCHITECTURAL PAGE 
OF THE SCB, 1.€., 128 ROUTINES. 
INPUTS: 

(SP) = PC_AT INTERRUPT 

4(SP) = PSL AT INTERRUPT 


OUTPUTS: 
ERROR IS LOGGED, OR PROCESSOR BUGCHECKS. 
~PSECT SAEXENONPAGED,LONG 
; UNEXPECTED ADAPTER INTERRUPT HANDLER: IF DEBUG IS DISABLED, SAVE THE 
; ADAPTER TYPE, ATTEMPT TO DISABLE FURTHER INTERRUPTS FROM THE ADAPTER 
; AND LOG THe INTERRUPT. IF DEBUG IS ENABLED, BUGCHECK AS FOR CPU INTERRUPTS. 


-ALIGN LONG 


NEXUS = 0 :FIRST ADAPTER = 0 
wREPT 16 sISR'S FOR 16 ADAPTERS ONLY 
ADPISR \NEXUS [DEFINE ERLSINT'VNUM LABELS AND ISRS 
NEXUS = NEXUS + 1 sNEXT ADAPTER 
ADP_HANDLER: 
SUBL § #ADP_UNEXP+2, (SP) :COMPUTE ADAPTER OFFSET 
DIVL #4,(SP) :COMPUTE ADAPTER SLOT/TR NUMBER 
PUSHR #*M<RO,R1,R2,R3,R4> TSAVE REGISTERS 
MOVL  5*4(SP5,R SRETRIEVE SLOT NUMBER 
MOVL §§ @MMGSGL_SBICONFCR3],R4 ;GET ADDRESS OF ADAPTER REGISTERS 
BGEQ 100% [GEQ MEANS SBICONF DOES NOT CONTAIN 
; A SYSTEM VA, MUST BE PFN OR 0 
SPRICTINI B°5$,#<MCHKSM_NEXM!MCHKSM_LOG> 
CLRL = @ (RG) ;DISABLE ADAPTER INTERRUPTS (HOPEFULLY) 
MOVL (R4),R1 :GET ADAPTER CONFIGURATION REG CONTENTS 
CMPB sa R'1 , #NDT$_DR32 [1S THIS A DR32? 
BNEQ 1 ‘BRANCH IF 


NOT 
MOVL #*X500, (R4) sELSE CLEAR INTERRUPTS IN SPECIAL WAY 


Ce. 


ERRORLOG = ERROR LOG SUPPORT ROUTINES 16-SEP-1984 04:39 VAX/VMS Macro V04-00 Page 7 
v04-000 UNEXPECTED INTERRUPT SERVICE eset eee SYS.SRCJERRORLOG.MAR; 1 . (1) 
54 64 00 73 2? 1$: MOVL (R4) ,R4 ;GET THE ADAPTER'S CONFIGURATION REG 
7 3? SPRTICTEND 5$ 
37 50 =—«E9 tA 23 BLBC RO,100$ ;1F RO LBC, THEN NO ADPATER PRESENT 
peenettit D5 7D 60 TSTL OR ESE. _COMPREGL ERE sALREADY CONFIGURED? 
9 12 4 61 BNEQ 10$ :1F NEQ, Y 
00000000'FF43 4 OA : 86 108 MOVZBL R4,@EXESGL_CONFREGLCR3] ;SAVE THE ADAPTER TYPE 
51 18 DO Q0 64 MOVL #EMBSC_UI_LENGTH,R1 :SET SIZE OF MESSAGE TO ALLOCATE 
00000251 'EF 16 i 65 JSB ERLSALCOCEMB ;ALLOCATE AN ERROR LOG BUFFER 
: 14 50 €9 97 96 BLBC RO ;BRANCH IF NONE AVAILABLE 
04 AZ 0061 8F BO 9A 6 MOVW #E ARSC U1, EMBSW Yj ENTRY INS ;SET MESSAGE TYPE 
10 A 53 D0 OO0A0 68 MOVL R3,EMBSL_UI_TR(R2) SET SLOT/TR NUMBER 
14 A 54 DO QO0A4 69 MOVL R4,EMBSL_UI_CSR(R2) ;SET CONFIGURATION REGISTER VALUE 
00000325'EF 16 OOA8 70 JSB ERLSRELEASEMB RELEASE BUFFER 
1F BA pA 71 208: POPR #*M<RO,R1,R2,R3,R4> RESTORE REGISTERS 
5E 04 CO B i ADDL #4,SP ;REMOVE SLOT NUMBER 
02 i 7 REI 3 
0B4 74 
54 D4 00B4 75 100$: CLRL R4 3FLAG NO ADAPTER PRESETN 
D6—s ‘i111 boas 76 BRB 10$ ;JOIN COMMON CODE 
ae 
0088 79 ; UNEXPECTED CPU INTERRUPT HANDLER: IF DEBUG IS ENABLED, BUGCHECK WITH 
00B8 80 ; <VECTOR OFFSET>/2 INTO SCB AS TOP BYTE ON STACK. IF DEBUG IS DISABLED, 
0088 4 ; JUST BUGCHECK. 
0088 ¢ ; 
ait 8 -ALIGN LONG 
008 84 CPU_UNEXP: 
00000000 9088 85 VNUM=000 sFIRST VECTOR = 0 
0088 86 eREPT 64 :ISR'S FOR CPU INTERRUPTS ONLY 
00B8 87 ISRDEF \VNUM :DEFINE ERLSINT*VNUM LABEL AND ISR 
0088 88 VNUM=VNUM+4 sNEXT VECTOR 
008 89 -ENDR : 
008 90 
008 91 ERLSUNEXP: : ; 
bees 38 . DF ,DEBUG ;**e1F VECTOR ID ENABLED,... 
008 9 MOVZBL a(SP), (SP) s***QVERLAY RETURN WITH VECTOR OFFSET 
0088 34 MULL «#2, (SP) :***CONVERT ARG TO VECTOR OFFSET 
bop 96 BUG_CHECK UNXINTEXC ; BUGCHECK 
00BC 97 IFT 
pat 38 TSTL (SP) + ;***CLEAN STACK 
BC 9 -ENDC : 
02 00BC 0 REI ;RETURN FROM INTERRUPT 
bbeD 1 
Oop 4 : Vector entry for counting unexpected interrupts, rather than Logging 
0BD 4 ; them. Used on 11/780 for passive release on the DW780 and for the 
= B2 ; CVTP microcode bug. 
: eALIGN LONG 
C : ERLSVEC_RETURN:: 
00000000 ‘EF 6 C 19 INCL 10$GL_SCB_INTO ; Increment counter 
C6 1 REI ; And return 
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EV 
C7 .SBTTL LOG DEVICE ERRORS 
C7 : ERLSDEVICERR = LOG DEVICE CONTROLLER AND/OR DRIVE ERROR 
34 ; ERLSDEVICTMO = LOG DEVICE TIMEOUT ERROR 
(7 : THIS ROUTINE IS CALLED TO LOG A DEVICE TIMEOUT OR DEVICE CONTROLLER 
OC? ; AND/OR DRIVE ERROR. 
a8cf : INPUTS: 
C2 ; R5 = DEVICE UNIT UCB ADDRESS. 
O¢f : OUTPUTS: 
00¢7 : if AN ERROR LOG ENTRY I$ Nor ALREADY IN PROGRESS ON THE UNIT, ERROR 
00¢7 : LOGGING I$ ENABLED FOR THE U THE CURRENT REQUEST DOES NOT 
00C7 ; INHIBIT ERROR LOGGING, THEN AN Ten non R MESSAGE BUFFER IS ALLOCATED AND 
00¢7 ; FILLED IN WITH PERTINENT REQUEST INFORMATION FOLLOWED BY A DUMP OF 
00¢7 ; THE DEVICE REGISTERS. 
00¢? : ALL REGISTERS ARE PRESERVED ACROSS CALL. 
00¢7 : 
00000000 .PSECT WIONONPAGED 
0000 *ENABL LSB 
0000 ERLSDEVICERR: : ;LOG DEVICE CONTROLLER AND/OR DRIVE ERROR 
01 pd 0000 PUSHL #EMBSC_DE ;SET FOR DEVICE ERROR 
05 11 0002 BRB 10$ ; 
0004 ERLSDEVICTMO:: SLOG DEVICE TIMEOUT ERROR 
7E 0060 BF 3C 0004 MOVZWL #EMB$C_DT,-(SP) iSET FOR DEVICE TIMEOUT 
03 38 AS 16 £0 0009 10$: BBS #DEVSV~ELG,UCBSL_DEVCHAR(R5),15$ ; IF SET, ERROR LOG ENABLED 
0081 1 000 12$: BRW 40$ -ERROR 106 DISABLED 
F7 009A C5 08 EO Ooi 15$: BBS #10$V_ INHERLOG UCBSW_ FUNE (RS) 12$ ;IF SET, ERROR LOG. INHIBITED 
0082 (5 B86 0017 INCW ucBsy ERRCNT(R NCREMENT NUMBER OF DEVICE ERRORS 
72 64 AS G2 E0 0018 BS Bs0 -ERLO IP,UCBSW_ STS{RS) .40$ :1F SET, ERROR IN PROGRESS 
O04F 8F 6B 002 PUSHR R$_R6> :SAVE REGISTERS 
53 28 AS 00 0024 MOVL uces pBtR 5, Rs :GET ADDRESS OF DDB 
56 0088 C5 b0 028 MOVL ati “DD DT(R5) -R6 [GET ADDRESS OF DDT (from UCB not DDB) 
1 16A6 3C 0020 MOV ZL bb Tsu “ERRORBUF (RG) Rl GET SIZE OF ERROR LOG BUFFER IN BYTES 
00000251'EF 16 0031 JSB ERLSACLOCEMB TALLOCATE ERROR MESSAGE BUFFER 
54 50 €9 0037 BLBC ,30$ AY LBC ALLOCATION FAILURE 
0094 cS 52 00 O3A MOVL *UCBSL_EMB(RS) AVE ADDRESS OF ERROR MESSAGE BUFFER 
64 45 04 AB OO03F BISW futBERe ERLOGIP UCBSW sisins) SIGNAL ERROR LOGGING IN PROGRESS 
04 A214 AE 80 43 MOVW 80-584 (SP wW_ bv VagNT NTRY( “INSERT ENTRY TYPE 
ae 48 ADDL  #EMBSB "ove CLASS. R “Point TO DEVICE CLASS 
48 ASSUME EMBse _DV_TYPE £0 EMBSB_DV_CLASS#1 
8 40 AS 80 48 MOVW CB$B_DEVCLASS(R5) , (R2)+ pINSERT DEVICE CLASS AND TYPE 
1 SB AS D 4 MOVL UCBSL “IRP(R5) ,RI :GET ADDRESS OF 1/0 PACKET 
5 ASSUME EMBSL_DV_RQPID 5 EMB TYPE+1 
82 OC Al 00 ; MOVL  _IRPSL “PitRi) (R2)+ EMER V REQUESTER PROCESS ID 
57 ASSUME EMBSW_DV_BOFF £0 EMBSL_DV -ROPIDS4 
57 ASSUME EMBSWTDV"BCNT 0 EMBSW~DV~BOFF +2 
82 30A1 00 37 MOVL  IRPSWTBOFF(R1),(R2)+ — ; INSERT TRANSFER PARAMETERS 


—E 5 
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v04-0 LOG DEVICE ERRORS SEP=1984 4 (SYS.SRCJERRORLOG.MAR;1 (1) 
8 7 ASSUME EMBSL_DV_MEDIA EQ EMBSW_DV_BCNT+2 
82 00B8C CS 00 03 rs MOVL UCBSL-MEBIA(RS),(R2)+  ;INSERT SIZE OF DISK 
6 75 ASSUME EMB$W_DV_UNIT £0 EMBSL_DV_MEDIA+4 
82 54 a5 B0 $9 1 MOVW UCBSWIUNTT(RS),(R2)+ ; INSERT ONIT NUMBER 
37 8 ASSUME BS$W_DV_ERRCNT EQ EMBSW DV_UNIT#2 
82 0082 cS B80 te 44 MOVW UCBSW-ERRCNT(R5),(R2)+ ; INSERT RUMBER OF DEVICE ERRORS 
8: 1 ASSUME EMBSL OPCNT €0Q EMBS$W_DV_ERRCNT 
82 70 A5 00 ee ¢ MOVL 
Oep 4 ASSUME ERBSL DV tape of! EMBSL_DV_ pPcnT sé 
50 1€ AS DO $0 5 MOVL CB$L_ORB(RS) ,R 7;GET ORB” ADDRESS 
2 DO 74 § MOVL SRBSL “BONER ROD. (R2)+  ;INSERT VOLUME OWNER UIC 
0074 38 ASSUME EMBS$L_DV_CHAR EMBSL_DV_OWNUIC+4 
82 38 AS 00 Bore + MOVL UCBSL ~DEDEHAR(RS) « (R2)+ ; INSERT BEVICE CHARACTERISTICS 
b078 91 ASSUME EMBS$B_DV Stave, & EMBSL_DV_CHAR+4 
82 0090 (5S 9% pore 3 MOVZBW UCBSB_SLAVE(RS), ER2)+ INSERT SLAVE UNIT NUMBER 
007D 94 ASSUME EMB$W_DV_FUNC £0 EMB$B_DV_SLAVE+2 
82 20 A1 B60 p70 «4 MOVW IRP$SW_FUNC(R1), (Ro) s INSERT FUNCTION VALUE 
tt 97 ASSUME EMBST_DV_NAME €Q EMBSW_DV_FUNC+2 
a aa g! 081 98 ADDLS #EMBSC_DU_REGSAV-EMBST_DV_NAME,R2,-(SP) ;CALCULATE ADDRESS OF REGIST 
0269 0 0085 99 BSBW ERLS$GETFUCLNAME :"Copy full device gene 
50 8EDO 0088 400 POPL RO 3; Restore address + ronlscer dump area 
10 B86 16 0088 401 JSB appr st. _REGDUMP(R6) *CALL REGISTER DUMP R 
OO4F 8F BA i: 08 30$: POPR #*M<RO>R1,R2,R3,R6> SRESTORE REGISTE 
5E 04 C0 099 403 40$: ADDL2 4#4,SP SREMOVE ENTRY TYPE FROM STACK 
05 009 404 RSB ; 
0096 405 -DSABL LSB ps 
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BTTL LOG ASYCHRONOUS DEVICE ATTENTIONS 


3% 
; ERLSDEVICEATTN = Log asychronous device attention interrupts that are 
not related to the current 1/0 operation that may be in progress. 


INPUTS: 
R5 => UCB 
OUTPUTS: 
If error Loggin is enabled for the device, an error log buffer 
is allocated, filled in and released. There may be an error log 
in pregrege for the current device, but this is not taken into 


account since the current attention interrupt is not related to 
the 1/0 that may be in progress. 
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SUP 
ous 
iBg 
209 
410 
ae 
218 
414 
a 
i 
215 
420 
? 1 
138 
424 
; 5 
2 ; ERLSDEVICEATTN: : 
OO4F 8F BB 429 PUSHR #*M<RO,R1,R2,R3,R6> ; Save registers. 
56 0088 C5 v0 430 MOVL UCBSL_OpT¢ ; Get address of DDT. 
51 ots AE at 431 MOVZWL DDTSW- 
0082 C¢ B6 A3 $36 INCW UCBSW_ERR ; Increment number of device errors. 
16 €1 QOA?7 4 BBC #DEV$T_ELG,- 
5D 38 AS OA9 434 UCBSL_BEVCHAR(R5),30$ ; If clr, error log disabled. 
grag 30 OOAC $32 BSBW ERLSACLOCEMB ; Allocate error message buffer. 
5 : E9 QOAF 436 LBC RO,30$ ; If LBC allocation failure. 
2 dD 0082 437 PUSHL ; Save address of allocated buffer. 
0062 8F B80 00B4 $38 OVW #EMBSC_DA,- 
04 ne 0B8 439 EMBSW_BV ENTRY(R2) : Insert entry type. 
64 A BO OOBA 440 MOVW UCBSW"STS(RS) ,- ; Save device status in buffer. 
1A Ag 0BD 441 EMBSW_DV_STS(R2) 
12 A 7¢ pee re CLRQ EMB$Q_DV_1I0SB(R2) ; Clear irrelevant field. 
a a Hf ret ADDL #EMBSB_DV_CLASS,R2 ; R2 => device class field. 
Oe res ASSUME EMBSB_DV_TYPE Q EMBS$B_DV_CLASS+1 
82 40 a5 B60 oce + MOVW $UCBSB_DEVCLASS(R5),(R2)+ ; InSer€ device class and type. 
08 ASSUME EMBSL_DV_ROPID £0 EMBSB_DV_TYPE+1 
C9 430 ASSUME EMBSW"DV"BOFF £0 EMBSL ~DV-ROPID+4 
C9 = 45 ASSUME 15} y a aieale EQ EMBSW_DV_BOFF +2 
82 7C 2 $26 CLRQ (R2)+ ; Clear PID, BOFF and BCNT. 
oc 454 ASSUME EMBSL_DV_MEDIA EQ EMBSW_DV_BCNT+2 
82 00BC C5 00 $2? MOVL UCBSL-MEBIA(RS),(R2)+ ; Insért size of disk. 
D £3 ASSUME EMBSW_DV_UNIT EQ EMBSL_DV_MEDIA+4 
82 54 A5 60 4 $28 MOVW UCBSW-UNTT(R5), (R2)+ ; Insért™unit number. 
D4 269 ASSUME EMBSW_DV_ERRCNT EQ EMBSW_DV_UNIT+2 - 
82 0082 ¢5 80 3 $9 MOVW UCBSW"ERRCNT(R5),(R2)+ ; Insért number of device errors. 
09 18 ASSUME EMBSL_DV_OPCNT €E0 EMBSW_DV_ERRCNT+2 


ERRORBUF(R6),R1 ; Ri=size of error log buffer in bytes. 
CNT(RS5) : 
| 
| 


LOG SUPPORT ROUTINES 
CHRONOUS DEVICE ATTENTIONS 


ms MOVL UCBSL_OPCNT(R5),(R2)+ ; Insert operations completed. 
4 pros EMBSL_DV_OWNUIC EQ EMBSL_DV_OPCNT+4 


sucag® 
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oO 
om 


82 70 A5 00 


4-4 


R 
MOVL DDTSL_REGDUMP(R6) ,R1 R1 => register dump routine. 
1) Call register dump routine. 
Restore address of allocated buffer. 
Release this error log buffer. 


Restore registers. 


(R 

R2 

BSBW ERLSRELEASEMB 

30$: POPR #°M<RO,R1,R2,R3,R6> 


RSB 
-DSABL LSB 


wo-coOWOon 


WMOM—AONWNIO 
oo 
m 
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9 4 
4 5 
50 1C AS 4 DD 163 UCB$L_ORB(R5) GET ORB™ ADDRESS 
82 60 4 age MOVL ORBS$L-OWNER(RO) , (R2)+ ; Insert volume owner uic. 
E46 470 ASSUME EMBSL_DV_CHAR  €Q EMBSL_DV_ 1C+4 
82 38 A5 00 + if MOVL UCBSL_DEVCHAR(R5),(R2)+ ; Insert device characteristics. 
es 47 ASSUME EMBSB_DV_SLAVE €0 EMBSL_DV_CHAR+4 
82 0090 (5S 9% 4 ore MOVZ2BW GCBSB-SUAVE CRS), (R2)* ; Insert slave unit number. 
ED 2f8 ASSUME GRg se .OV_FUNC EQ EMBS$B_DV_SLAVE+2 
? f CLRW (R2)+ ; Clear Trrelevant function value. 
EF 138 ASSUME EMBST_DV_NAME  €Q EMBSW_DV_FUNC+2 
EF 480 ADDLS #EMBSC_DU REGSAY-EMBST_DV_NAME .R2 .~(SP) :CALCULATE ADDRESS OF REGIST 
F3 481 MOVL UCBS$L_BDBTRS) ,R ; Get address o 
F 4 ¢ BSBW ERLSGETFULLNAME Copy full device name 
4. ? ? POPL Restore address of register dump area 
ti 
88 4 $ 
488 
OD 489 
OE 490 


H § 
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u ¢ ~-SBTTL LOG SOFTWARE STATUS 
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JERRORLOG.MAR; 1 1 


S 
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oovowo 


we 


ERLSLOGSTATUS = Log software status corresponding to a logged message. 


INPUTS: 
RO-R1 contain final 1/0 status 
R2 => MSCP end message 
R5 => UCB 
=> CORP 


OUTPUTS: 
An error log message (format EMBSPDEF) is allocated and filled in. 
ALL registers are preserved. 


RLSLOGSTATUS:: 


CTR Se Be Be Be Be Oe Oe Oe Oe Oe Oe Se Se 
+ 


0082 ¢3 B64 INCW UCBSW_ERRCNT(R3) ; Increment number of device errors. 
1 1 BBC #DEVSV_ELG,- 3; If clear, error log disabled. 
71 38 A UCBSL_BEVCHAR(R3) ,20$ 
7E 8 7D mOVa epentere 3; Save RO, R1, R2. 
D PUSHL R 
51 0050 8F C MOVZWL #EMBSK_SP_LENGTH,R1 ; R1 contains Length of buffer to alloc 
012D g BSBW ERLSALCOCERS ; Allocate error message buffer. 
58 50 € BLBC ~ ; LBC implies allocation failure. 
0063 8F 860 MOV #EMB ; Indicate type of error log buffer. 
04 A EnBeu. “sp. PENTRY(R ) 
50 0A 9E MOVAB EMBSB_SP_CLASS(R2),RO ; RO => where to begin filling. 


ASSUME UCBSB_ tig bis: EQ UCBSB_DEVCLASS+1 
ASSUME EMBSB_ SP ° EMBSB_ SP_CLASS+1 
MOVW uCcBsB ~DEDCLASSCR ),(RO)+; Move Device type and class. 


ASSUME EMBSW SP _BOFF EQ EMBSB_SP_TYPE+1 
MOV CORPSO_BOFF (RS), (RO)+ 5 Copy BOFF. 


80 40 A3_ B80 


80 DO AS B80 


ASSUME arts SP_6CNT EMBSW_SP_BOFF +2 
80 D2 a5 00 MOVL EDRP C_BCNT(RS), FRO) * ; Alsd byte count. 
ASSUME pete SP_MEDIA €Q EMBSL _SP_BCNT+4 
80 08 AS 00 MOVL corPSsC SMEDIACRS) © (RO)+ ; Move media address (LBN). 
ASSUME tt te RQPID €Q EMBSL_SP_MEDIA+4 
80 aC AS 00 MOVL CORPSC_PTD(R5), <RO)+ ; Copy réquesting PID. 
ASSUME tits ie SP_IO0SB €EQ EMBSL _SP_ROPID+4 
80 04 AE 7D mOva (SP)7(RO)+ ; Copy saved 1/0 status to buffer. 
ASSUME EMBSW_SP_FUNC engse.. SP_10SB+8 
80 cOAS B60 MOVW CORPSQ_FONC(RS),(RO)*+  ; Copy 170 function code. 


EQ 

(R 
ASSUME EMBSW_SP_UNIT £0 EMBSW_SP_FUNC+2 
MOVW RO 


80 54 A3 B60 SCBS-UNTY CR 3), (RO)+ ; Copy unit number. 
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PUPPY LVPV LVL DPVLVDPVDPVDVLVLVLVLVSPVLIVLVLVLVSELVUDIUDULVSVSVS USVI USUI OSV SIOSIOSIOIIOI E™ ~~ SE I 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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1 
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1 
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yOee008" LOG SOFTWARE STATUS "g SEp-| 38 88: re 3 SYS.SRCJERRORLOG.MAR; 1 = (1) 
1 4 ASSUME EMBSL_SP_OPCNT £0 EMBSW_SP_UNIT+2 
80 70 A3 00 MOVL GcBSt“OPENT (RS) , (RO)+ |; Copy cummulative operation count. 
ASSUME EMBS$W_SP_ERRCNT EQ EMBSL_SP_OPCNT+4 
80 0082 ¢3 B80 MOVW UCBSU-ERRENT IA 3),(RO)+ ; And alSo cummulative error count. 
ASSUME EMBSW_SP_UCBSTS EQ EMBSW_ SP_ERRCNT+ 
80 64 A353 B80 MOV HeBswnsTStRS). CRO) + ; Copy UCB STS field. 
ASSUME EMBSL_SP QuNUte EQ EMBSW_SP ices see 
51 1C a3 44 MOVL UCBSL-ORB(R3) ,R1 GET ORB™ADDRESS 
80 61 »D MOVL ORBSL ~OUNERCRID. (RO)+ 3 Copy , H. owner UIC. 
ASSUME EMBSL_SP_CHAR  €0 EMBSL _SP_OWNUIC +4 
80 38 a3 00 MOVL UCBSL-DEVCHAR(R3),(RO)*+ ; Copy device characteristics. 
ASSUME EMBSL_SP_CMDREF EQ EMBSL _5P_CHAR+4 
MOVL > ASCP end message. 


( 
MOVL  MSCPSL_CMD_REF(R1),(RO)+: iy command reference number (RSPID). 
ASSUME E EMBST_SP_DEVNAM EQ EMBSL _SP_CMDREF +4 


kh oh oh oh oh 
NN NNN NOAA AA AAOOOOAO UT 
OONAMN EWN 9 OD NAUNE WO OONOUE 


DOD 09 09 09 NI NINN NIAAA AAA AAA AA MMIII 


WOU TH FO OUI HHO OOOUIMIUMUIMMM > > TU 


43 ; 7D MO 7 (SP) : Save UCB & buffer base address(R2,R3) 
5 dO MOVL : Get buffer adderss 
53° 2B A 0 MOVL Ucés DDB(R3) . R3 ; Get DDB address 
017 BSBW ERLSG SGETF : Copy full device rane 
Ss & D MOva (SP)+ Rove 3; Restore R2 and R3 
O1A3. 330 108 BSBW ERLSRELEASEMB ; Release filled in error buffer. 
52 8EDO POPL R2 ; Restore registers R2, R1, RO. 
50 8E 7 0 MOVQ (SP)+,R0 
+ 20$: 
05 1 RSB ; Return to caller. 


J 5 

ERROR = ERROR LOG SUPPORT ROUTINES 16-SEP-1984 :04:39 VAX/VMS Macro v04-00 P 15 
vies ta LOG DRIVER me SSage §-8 sats 80:04: 3? SYS.SRCJERRORLOG.MAR; 1 soy (1) 
3 -SBTTL LOG DRIVER MESSAGE 
os 
ERLSLOGMESSAGE = Subroutine to allocate a yt butter. fill ina 

standard header, and then copy caller specified test to the rest 

of the buffer. 

INPUTS: 


9 
RO = Code specifying message sub type. 
RY = len th of caller speci tied text 
R2 => caller text 
4 ; R35 => UCB 
9 ; OUTPUTS: 
4 3 Message allocated and filled. All registers preserved. 
9 e 
4 ERLSLOGMESSAGE: : 
0082 ¢3 =B6 9 INCW UCBSW_ERRCNT(R3) ; Increment total number of errors. 
ig E1 D BBC #DEVSV_ELG,- ; Clear means error logging inhibited. 
55 38 A F UCBSL_BEVCHAR(R3) ,20$ 
7E 23 7D ; mMOvVa + ahs ; Save registers RO-R5. 
7E 7D MOVQ R2,-(SP) 
7E 4 7D 8 MOVG R4,-(SP) 
51 6 ¢? ADOL #EMBSK_LM_LENGTH,R1 ; Add moseage header to caller's Length. 
0088 8 f BSBw ERLSALCOCEMB ; Allocate buffer. 
3A E | BLBC RO,10$ ; LBC means allocation failure. 
52 oD 4 R2 : Save address of buffer. 
6 MOVW #EMBSC 3; Indicate type of error log buffer. 


LM,- 
EMBSW_CM_ENTRY(R2) 


— 

MS SSSSO OOOO LLL PDWHDSD YS HH HHS} PY} &O00-0-0 0000090909099 09090909 09 90909 09 099 CDEDEB 
OWNAA RW OO NAME WN SD OO NAME WIN 0 GDA AE WINS OD NAME WIN OOD AU 

v 

c 

a 

x= 

- 


AWWA AIA. AAA AIR IIIRIRININININIIIND  — 4 3 = = = BQO OOOOOCOCOO OOO OOWOO 


DEA APAA AA AA AA AAA A AAA AAA A AAA AAA AA AAA AAA AAAO 


C 
C ASSUME UCBSB_DEVTYPE EQ UCBSB_DEVCLASS*1 
C ASSUME EMBSB_LM TYPE fe EMBSB_LM_CLASS+1 

40 AS BO C MOVW UCB$B_DEVCLASS(R3).- ; Begin fo fill in buffer. Copy 

10 A2 . EMBSB_LM_CLASS(R2) ; Device type and class. 
54 AS BO 1 MOVW UCBSW_UNIT(R3) ,- 3; Also copy device unit number. 
12 A2 ‘ EMBSW-LM_UNIT(R2) 
53 DD : PUSHL R3 ; Save UCB 
28 14 x} i) MOVAL EMBST_LMA DEYNAN(R2) .Re ; Get buffer address for device name 
* A g MOVL UCB$L~DDB(R3),R ; Get DDB pédress 
"3 BSBW ERLSGETFULLNAME : Copy full device name 
8ED POPL R3 ; Restore U 
co. 2 : MOVL (SP),R2 3; Restore buffer base address 
24 4 14 AE 8B MOVW ; (SP) ,EMBSW_LM_MSGTYP(R2) : Copy message subtype. 
5 ? E 3 MOVL (SP),R1 3 => caller's text. 
26 A261 A MOVCS 24(SP),(R1),EMBSW_LM_MSGTYP+2(R2); copy caller's text. 
5 BER POPL R2 3; R2 => allocated buffer. 
014 : 108 BSBW ERLSRELEASEMB ; Release buffer. 
re ge 7D , MOVQ (SP)+,R4 ; Restore Registers RO-R5. 
2 E 7D MOVa (SP)+,R2 


<m 


04-000" 


os HE Bl em 


Cala 


MOVa 
RSB 


(SP)+,RO 


"SSER 19s BRRt82 USYSUSR he 


; Return to caller. 
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RORL OG.MAR; 1 


Page 16 


L 5 
UPPORT ROUTINES 16-SEP=1 4:39 VAX/VMS Macro V04-00 Page 17 
nd ERLSLOG. TASCP PEE 1S8s BORG s2 FENLMaS acre vOR-00 oo 


-SBTTL ERLSLOG_DMSCP and ERLSLOG_TMSCP 


ERROR -f 
rave th ERL 


3+ 
; Routines that respectively log invalid Disk and Tape MSCP messages. 


RO = type of message 
Ri = Length of message 
= => nessag e 

CDDB 


Outputs: 
ALL registers preserved. 


We want to log the following items in addition to the message 
and its type: 


Te eposse SYSTEMID (6 bytes) 
¢: The ASCII str rine DISK’ (4 bytes) or ‘‘TAPE'’ (4 bytes) 
CODBSQ_ tNTREID 8 bytes) 


eenabl Lsb 
ERLSLOG_TMSCP:: 


PUSHR = #*M<RO,R1,R2,R3,R4,R5> ; Save registers, 

MOVL  #*A/TAPE/~RG : RG has string "TAPE". 

BRB 10$ ; Branch around to common code. 
ERLS$LOG_DMSCP: : 


PUSHR #*M<RO,R1 Re R3,R4,R5> ; Save registers. 
MOVL #*A/DISK/; : R4 has string "DISK". 


#<24+44648 - ; R1 has length waten is bumped by 
+EMBSK_HD_LENGTH>,R1 2_for oe type for ‘DISK"’ or 
"TAPE" Pe est STEMID, 8 for 
+ pate 16, js " errorlos entry header 


3F = BB 
54 45504154 8F D0 
09 «11 


10$: 


3F 
54 48534944 8F DO 
51 24 0 


ERLSALLOCEMB Allocate Errorlog Buffer. 
agate LBC means no allocate. 
R Save R2=>Buffer 
#EMBSC_LOGMSCP Copy message class to buffer header. 
ENBSY AD ENTRY {R2) 
aa thas ENGTH,R2 ; R2 => beyond header. 
; Copy pessage type ¢ (from saved regs). 
; copy © lass driver type. 
BREN (R2)+: Controller identifier. 
DDBSB-SYSTEMID(R3S,(R2)+;And System ID. 
P),- ; Get length re. saved registers. 
ai ($F) ,- ; _also source a 
-2(R2) 3; Target 5 oh SSYSTEMID is 6 bytes. 
3; Restore R2=>Buffer 
PRLSRELEASEMB 3; Free Errorlog buffer. 


#*M<RO,R1,R2,R35,R4,R5> ; Restore registers. 


mM 5 
$L0G_DMSCP and ERLSLOG TASCP "BrSEb=]SBe OSihhi82 HeNeMes Hegre voe-Oo.., = Page 18, 


O22F 701 -dsabl ILsb 
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a ~SBTTL BUILD STARTUP AND POWERFAIL MESSAGES 
; ERLSCOLDSTART = LOG COLDSTART (SYSTEMBOOT) 


; THIS ROUTINE IS CALLED BY SYSINIT AFTER CORRECTLY SETTING THE SYSTEM 
; TIME TO LOG THE BOOTING OF THE SYSTEM. 


; ERLSWARMSTART = LOG WARMSTART (POWER RECOVERY) 
; THIS ROUTINE IS CALLED BY POWERFAIL AFTER CORRECTING THE SYSTEM TIME 


ERRORLOG - ERRO 
vOe-000 BUILD 


zo 
aD 


UPPORT ROUT 
ERF 


4 


; TO LOG THE POWER FAIL AND RECOVERY. 


R LOG SUP 
STARTUP A 
F 103 
F 4 
Wt 
te 
F $08 
F 710 
, Yor 
F ar 
Th 
F 715 : INPUTS: 
: £18 ; NONE 
i £18 : OUTPUTS: 
F 720 ; AN ERROR LOG BUFFER IS ALLOCATED AND FILLED WITH THE APPROPRIATE MESSAGE 
0 F f 1 ;_IF POSSIBLE AND THE ERROR LOG PROCESS AWAKENED IF NECESSARY. 
O22F 7 § . LSB 
8 F 724 ERLSCOLDSTART:: 3 
53 20 3¢ 0 F f 5 VZWL #EMBSC_CS.R3 ‘SET TYPE OF MESSAGE TO COLDSTART 
0234 7 5 ERLSWARMSTART:: : 
53 3¢ 0234 728 WL #EMBSC_WS,R3 ‘SET TYPE OF MESSAGE TO WARMSTART 
51 14 3C 0237 729 10%: § MOVZWL #EMBSC™SU LENGTH,R1 [SET SIZE OF MESSAGE TO ALLOCATE 
15 10 023A 730 BSBB ss ERL$A CCOCERB SALLOCATE AN ERROR LOG BUFFER 
1150 €9 O23c 731 BLBC 0 508 ‘BRANCH IF NONE AVAIL 
00000900" EF 16 O023F 7 ; JSB EXESREAD_TODR :GET TIME TO LOG 
10 A2 9 D0 0245 7 MOVL RO. sEMBSLSU_DAYTIM(R2) LOG TIME OF DAY CLOCK 
04 a2 5 80 0 49-734 MOVW "EMBS$WSU-ENTRY(R2) :SET MESSAGE TYPE 
0005 39 9 4p 133 at BBW ERLSRELEASEMB [RELEASE BUFFER 
|. i .DSABL LSB : 


<m 
= 


ERRORLOG = ERRO 
v04=000 R 


Cc 
mo 
zwar 


SLL 
AEA EE EEE DC 
MOO ONOU EWN OOONOUS WOW 


B 6 
F BUFF SSEp=1986 OS:ati34 Esvsusaciennontoc-nan;1 = 9° 49, 


* ~SBTTL ALLOCATE ERROR MESSAGE BUFFER 
; ERLSALLOCEMB = ALLOCATE ERROR MESSAGE BUFFER 


; THIS ROUTINE IS CALLED TO ALLOCATE AN ERROR LOG MESSAGE BUFFER AND 
; INITIALIZE ITS HEADER. 


: INPUTS: 

; R1 = SIZE OF MESSAGE BUFFER REQUIRED IN BYTES. 

; OUTPUTS: 

RO LOW BIT CLEAR INDICATES AN ALLOCATION FAILURE. 

RO LOW BIT SET INDICATES SUCCESSFUL ALLOCATION WITH: 


R1 = ERROR SEQUENCE NUMBER 
R2 = ADDRESS OF ALLOCATED ERROR MESSAGE BUFFER. 


IN EITHER CASE nee ite he ERROR SEQUENCE NUMBER IS INCREMENTED 
AND STORED IN THE BUFFER AT THE STANDARD PLACE, ALONG WITH THE TIME. 
AND THE ERROR LOG PROCESS AMAY BE AWAKENED IF AN ERROR ALLOCATION 
BUFFER IS FOUND TO BE FULL. 


DDD PUP PVPs SPT 
O— PN ss 


PIPOIPOPIPONINPINPIPIPYPIPININPIMIPINIPYNIPIPININININININININININININAININIPITIN -— 


DOCOOCOOCOCOCOCOCCOOCOOOSOOVOCOOCOCCOCOOOC COCO OOOOOOOOOSOOO 


i6¢ : 
763 : 
764 : R3 1S PRESERVED ACROSS CALL. 
766 
767 ERLSALLOCEMB: : ALLOCATE ERROR MESSAGE BUFFER 
768 DSBINT DISABLE ALL INTERRUPTS 
04 CO 769 ADDL #EMBSK “LENGTH. R1 : age in size of header for message 
50 00000408'EF 9A 770 MOVZBL ERL$GB~BUF IND RO, :GET CURRENT ALLOCATION BUFFER INDICAT 
50 00000400'EF4O 00 771 MOVL  ERLSAL =BUFADDALRO ET ADDRESS OF ALLOCATION BUFFER SESCRIPTOR 
1E 93 AO 00 €0 re BBS agERLSV LO Lock tins 1,RQ. s(RO) .15$: IF SET, BUF FER BEING COPIED 
2 04 A0 00 773 10$: MOVL ERL LAE :GEf ADDRESS OF NEXT AVAILABLE SPACE 
0400 S2 51 C1 72 77% ADDL3 R1,R FRC OL NEXT (RO) CALCULA TE ADDRESS OF NEXT AVAILABLE SPACE 
04 a0 08 AO D1 77-775 CMPL  ERLSL_END(RO),ERLSL_NEXT(RO) ;ENTRY FIT WITHIN BUFFER? 
+ ee 7C 17 BGEGU 208 sIF > céa tt YES 
00000409'EF 02 8 ze 77 1SB HERLSR TIMER, ERLSGB _BUFFLAG ;SET TIMER ACTIVE 
00000460B'EF 01 9 85 778 MOVE #1, E€RLSGB Burt IM “FORCE ERROR LOG PROCESS WAKE 
04 AO 08 AO 00 at 779 15$: MOVL  ERLSL ENBTR > ERLSL _NEXTERO) “INDICATE THAT BUFFER IS FULL 
00000408'EF 01 &C 1 780 ORB #1 ERCSGB BUF IND :SWITCH TO ALTERNATE BUFFER 
50 00000408°EF 9A 0298 781 MOVZBL ERL$GB_BUFIND :GET NEW BUFFER INDICATOR 
50 90000400 "EF 40 00 O029F 7 3 OVL ERLSAL ~BUFADDRLR 14 ADDRESS OF ALLOCATION BUFFER DESCRIPTOR 
03 A 99 EO O2A7 7 BS #ERLSV™ LOCK ERL SB “ftacs ),17$; IF SET, BUFFER BEING COPIED 
52 04 AO 51. «C1 at 784 ADDL3 RT ERLSLN (RQ); R 7 CALCU LATE ADDRESS OF NEXT AVAILABLE SPACE 
2 08 AQ D1 0281 785 CMPL ERESL_ EMDR) R SENTRY FIT WITHIN BUFFER? 
B le BS 7 E BGEQU 10 “IF GEQU YES 
04 A0 O08 AO D 87? 787 178: MOVL  ERLSL_END(RO) ,ERLSL_NEXT(RO) ; INDICATE THAT BUFFER IS FULL 
5 b4 BC f 8 CLRL RO. : INDIEATE ALLOCATION FAILURE 
5 4 C0 cD a +s 20$: ADDL #EMBSK_LENGTH,R2 Point page the ten iB. header 
6 — OB 02¢3 791 MFPR  #PRS$ STD, EMBSL_HD p_si0<ras FA Set system 15 into message 
FC A 1 ¢ ré 13 MOVZWL Ri »ERBSU S SIZE (Re) et size in eader 
FE A202 Ag CA 79 V ERL$B SRUFIND (ROS EMBSB_ BUF IND ( Rabe :SET mReS ep trive BUFFER INDICATOR 
6 % CF 79% INCB —ERL$B BUSY (RO) ; INCREMENT MESSAGE BUSY COUNT 
51 00000410'EF oD D1 0795 MOVL  ERLSGC OSEQUENCE .R1 ‘GET CU ERENT ERROR SEQUENCE NUMBER 


C 6 
ERRORL OG - ERROR LOG SUPPORT ROUTINES 16-SEP=1 1984 99:04 39 VAX/ViMs Macro V04-00 Page 21 EX( 
v04-000 ALLOCATE ERROR MESSAGE BUFFER -SEP=1984 4 [SYS.SRCJERRORLOG.MAR; 1 (1) v0+ 
06 A2 O0000000'EF 7D D8 736 MOV = EXESGQ_SYSTIME ,EMBSQ_DV_TIME(R2) ; INSERT CURRENT TIME 
OE A 1 Bd E £3 MOVW R1,EMBSW_DV_ERRSEQ(R2) ~;IN SERT ERROR SEQ UENCE NUMBER 
ee e& 67 8 MOVL #1.RO0 SSET SUCCESS INDICATOR 
00000410"EF D6 O2E7 799 30S: INCL _ ERL$GL_SEQUENCE : INCREMENT UNIVERSAL ERROR SEQUENCE NUMBER 
ie OED 800 ENBINT ; ENABLE INTERRUPTS 
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PORT ROUTINES 16-SEP-1984 :04:39 VAX/VMS Macro v04-00 Page 
NAME -SEP-1984 04:32 SYS.SRCJERRORLOG.MAR; 1 . 


" -SBTTL GET FULL DEVICE NAME 
ERLSGETFULLNAME = GET FULL DEVICE NAME 


THIS ROUTINE IS CALLED TO COPY YHE FULL DEVICE NAME (NODE NAME + DEVICE NAME) 
TO THE ERROR LOG BUFFER. 


: INPUTS: 

; R3 = address of DDR 
; R2 = address of error log buffer 
; OUTPUTS: 


If a node name exist in the 7“ block, it is copied with the 
uffer. 


RO, R1, AND R3 ARE DESTROYED ACROSS CALL. 


SUP 
ICE 
3 
4 
: 
: 
10 
1] 
i 
14 
15 
13 
He device name to the error log 
83 
‘ ERLSGETFULLNAME: : 
¢ MOVAB 
i 
830 
Ba) 
833 
83 
834 
836 
837 
i 
340 
841 
842 


CGOOOCOCCOOCOOOCCOCCOOCOOCOCOCOOOCOOCOOCOOOOOOOOOOCOOOOO CO 


WNAAANAINNIAIWIIWIINononononononononononononononononononorononorononen =m 


MNO = S| = S@ 2OCOCCOC NTN HHH HHH 


OFM DWOOWOS @ NUNIM F OU 2 


51 14 A3_ 9E DDBST_NAME(R3),R1 ; Get address of device name. 
7E. 81 QA MOVZBL (R1)+,-(SP) ; Save the string Length 
53 34 A3 00 MOVL DOBS$L_SB(R3) ,R3 ; Get address of system block 
| ee Ob BEQL 20$ 3; If EQL, go to move device name 
53 44 A3. YE MOVAB SBS$T_NODENAME(R3) ,R3 ; Get address of nodename 
50 83 9A MOVZBL (R3)7,R0 3; Get nodename Length 
) ie BEQL 20$ : If eql, go move device name 
se &@ 7 FF ADDBS = RO, (SP), (R2) ; Nodename Length + device name 
Be 96 INC (Re) : Total string len. + 1 for ‘'$"’ 
82. = 8B 90 10$ MOVB (R3)+. (R2)+ ; Copy nodename 
FA 50. FS SOBGIR RO, 108 
82 24 90 MOVB = #*A/$/, (R2)+ ; Insert the "'s"' 
Be BRB 30$ : Go move device name 
82 6€ 90 $p$: MOVB (SP), (R2)+ 3 Move dev. name len. to buffer 
50 8E 00 O$: MOVL (SP)+,RO 3; Get dev. name Length 
82 81 90 40$: MOVB (R1)+,(R2)+ 3; Move device name into buffer 
FA 50 OFS SOBGTR RO,40$ 
05 $B ; Return to caller 
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: ERLSRELEASEMB - RELEASE ERROR MESSAGE BUFFER 


; THIS ROUTINE IS CALLED TO RELEASE AN ERROR MESSAGE BUFFER FOR PROCESSING 
; BY THE ERROR LOG PROCESS. 


0 
§ 
44 
i 
‘} ; 
‘8 : 
50 ; 
z : INPUTS: 
33 ; R2 = ADDRESS OF ERROR MESSAGE BUFFER. 
33 : OUTPUTS: 
3§ : THE COMPLETED ERROP MESSAGE COUNT IS INCREMENTED IN THE RESPECTIVE 
0 38 ; ALLOCATION BUFFER H ADER, THE MESSAGE IS SET VALID, AND THE BUSY 
0 39 ; MESSAGE COUNT IS DELREMENTED IN THE RESPECTIVE ALLOCATION BUFFER 
0 61: 
0 6¢ ; R3 1S PRESERVED ACROSS CALL. 
0 64 * 
0 65 ERLSRELEASEMB:: sRELEASE ERROR MESSAGE BUFFER 
96 66 INCB MB$B_VALID(R2) 7SET MESSAGE BUFFER VALID 
9A 0 67 MOVZBL EMB$B~BUFI DRE) RO ‘GET BUFFER INDICATOR OF ALLOCATION BUFFER 
DO 68 MOVL RL$AC_BUFADDRCROJ,RO :GET ADDRESS OF ALLOCATION BUFFER DESCRIPTOR 
58 69 ADAW!  #*XFF,ERL$B_BUSY (RO) ‘ADJUST BUSY AND COMPLETED ME SSAGE COUNT 
ES 70 BBCS #ERL$V_TIMER,ERL$GB_BUFFLAG,10$ ;IF CLR, NO TIMER RUNNING 
1 71 CMPB = #MAXMSG,ERLSB_MSGCNT(RO) ;MAXIMUM NUMBER OF MESSAGES EXCEEDED? 
1A 0 fe BGTRU s1F GTRU NO 
30 0 3 move #1, ERLSGB_BUFTIM [FORCE ERROR LOG PROCESS WAKE 


aS ay EX! 


“a 
ERROR - ERROR LOG SUPPORT ROUTINES 16-SEP-1984 00:04:39 VAX/VMS Macro V04-00 Page 24 
rivet WAKE ERROR LOG FORMAT PROCESS i oety 7 80:08: 3? SYS. SRCJERRORLOG.MAR; 1 eH) vO 
af 2 .SBTTL WAKE ERROR LOG FORMAT PROCESS 
4F £8 t ERLSWAKE = WAKE ERROR LOG FORMAT PROCESS 
4F 0 : THIS ROUTINE IS CALLED ONCE A SECOND WHEN THE ERROR BUFFER TIMER IS ACTIVE. 
4F ; + INPUTS: 
GF $ 
4F 4; NONE. 
4F 5: 
af g + OUTPUTS: 
AF 8 : THE ERROR BUFFER TIMER IS DECREMENTED AND IF THE RESULT IS ZERO THE 
4F 89 : ERROR LOG FORMAT PROCESS IS AWAKENED. 
Sacro hoy 
AF 9 ERLSWAKE:: ;WAKE ERROR LOG FORMAT PROCESS 
00000408 EF 97 ot 98 DECB FRLSGB_BUFTIM SDECREMENT TIMER 
00000409'EF O BA : 57 895 BICB #ERLSM_TIMER,ERLSGB_BUFFLAG ;CLEAR TIMER ACTIVE FLAG 
00000608'EF 1— 90 5E 36 MOVB § #MAXTIA,ERLS$GB BUFTIM ;RESET TIMER VALUE 
51 0000040C'EF 00 0 6 89 MOVL ERLS$GL_ERLPID,R1 'GET ERROR LOG PROCESS ID 
FC91" 6C 898 BSBW  SCHSWARE [WAKE ERROR LOG PROCESS 
05 O36F 899 108 RSB : 
0370 900 
0370 901 END 
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pe oe 
Symbol table 
ERLSVEC 
ERLSVECS 


sc 
UCB$B_DEVCLASS 


UCBSB_DEVTYPE 
Urper~nkeve 


UCBSL_ 
UCBSL_DEVCHAR 
UCBSL-EMB 
UCBSL_IRP 
UCBSL_ME 
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geteeree 
gereeeee 
geeraeeee 
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VECTOR 
VNUM 


f 


“SEP=1 
“SEP-1 


AX/VMS Macro v04-00 


Be 08:04:34 
= 80000400 


SYS.SRCJERRORLOG.MAR; 1 
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RRORLOG = ERROR LOG SUPPORT ROUTINES 
sect synopsis 


tanwrn rere ser ee ocean > 


! Psect synopsis ! 


tere r ee meer ee mena} 


"SSEp=198e O8:2T:32 USYSYSRcSRnORL OG. Ran; 1 


PSECT name Allocation PSECT No. Attributes 
- . ( -) 00 ¢ QO.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD 
$485 ( -) O1¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD 
$$$260 ( 1044.) § ( 2.) NOPIC USR CON REL LCL NOSHR EXE RD 
SAE XENONPAGED 0 96 ( 199.) ( 3.) NOPIC USR CON REL LCL NOSHR EXE RD 
W lONONPAGED 0 ¢ 880.) 04 ¢ 4.) NOPIC USR CON REL LCL NOSHR EXE AD 
$e ewm etree semen een ees wow e ere} 
: Performance indicators ; 
Phase Page faults CPU Time Elapsed Time 
Initialization 3 :00.07 . 701.74 
Command processing 1 0:00:00.49 :00:04.7 
pees 1 aebt : 54 0:00: $2 3: 1: {:2 
yabol table sor :00:03. :00:11. 
ass 178 704. , 3 10°94 
Symbol table output 34 :00:00. :00:01.9 
Psect synopsis output 0:00:00. :00: 8-8 
Cross-reference output 3: :00. 0:00:00. 
Assembler run totals 90 : 44 0:01:44.1 


The york ing sey Limit was 1950 pages. 

1 bytes (256 pages) of virtual memcry were used to buffer the intermediate gece. 

There were 120 pages of symbol table space allocated to hold 2271 non-local and 34 local symbols. 
1 source Lines were read in Pass 1, producing object records in Pass 2. 

41 pages of virtual memory were used to define 40 macros. 


Pores eero eo ser ese asrec na sceoe eee eet 


! Macro Library statistics ! 


ge rer eer es ee eer ee eee eee eoecen} 


Macros defined 


Macro Library name 


5 33$DUA28: $¥S-0BJ 118 -MLB: 1 28 
$255$DUA28:(SYSLIBJSTARLET.MLB;2 
TOTALS (all Libraries) 35 


2304 GETS were required to define 35 macros. 


There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:ERRORLOG/OBJ=OBJ$:ERRORLOG MSRC$:ERRORLOG/UPDATE=(ENHS: ERRORLOG) +EXECMLS/LIB 


me it 


NOWRT NOVEC BYTE 


WRT NOVEC LONG 
WRT NOVEC SYTE 
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